object TPersHolder
  P.Name = 'AutoLISP AutoCad R14'
  P.Extensions.Strings = (
    'Autolisp files (*.lsp)|*.lsp')
  P.SyntaxBlocks = <
    item
      Name = 'Default'
      ID = 0
      UseMetaSymbol = True
      UseMetaToWrapLines = False
      MetaSymbol = '\'
      FIText = 9
      FIIntNum = 3
      FIFloatNum = 4
      FIHexNum = 3
      FIIdentifier = 5
      UseComments = True
      UseSingleLineComments = True
      UseMultiLineComments = True
      UseStrings = True
      UseSingleLineStrings = True
      UseNumbers = True
      UseIdentifiers = True
      UseKeywords = True
      BlockDelimiters = <>
      SingleLineCommentDelimiters = <
        item
          FontID = 10
          LeftDelimiter = ';'
        end>
      MultiLineCommentDelimiters = <
        item
          FontID = 1
          LeftDelimiter = '/*'
          RightDelimiter = '*/'
        end>
      SingleLineStringDelimiters = <
        item
          FontID = 2
          LeftDelimiter = '"'
          RightDelimiter = '"'
        end>
      KeywordSets = <
        item
          FontID = 6
          Name = 'Functions'
          Keywords = 
            '*error*,abs,acad_colordlg,acad_strlsort,alert,and,angle,angtof,a' +
            'ngtos,append,apply,ascii,assoc,atan,atof,atoi,atom,atoms-family,' +
            'autoload,boole,boundp,caaaar,caaadr,caaar,caadar,caaddr,caadr,ca' +
            'ar,cadaar,cadadr,cadar,caddar,cadddr,caddr,cadr,car,cdaaar,cdaad' +
            'r,cdaar,cdadar,cdaddr,cdadr,cdar,cddaar,cddadr,cddar,cdddar,cddd' +
            'dr,cdddr,cddr,cdr,close,command,cond,cons,cos,cvport,cvunit,defu' +
            'n,distance,distof,entdel,entget,entlast,entmake,entmod,entnext,e' +
            'ntsel,entupd,eq,equal,eval,exit,exp,expt,findfile,fix,float,fore' +
            'ach,gcd,getangle,getcorner,getdist,getenv,getfiled,getint,getkwo' +
            'rd,getorient,getpoint,getreal,getstring,getvar,graphscr,grdraw,g' +
            'rread,grtext,grvecs,handent,help,chr,if,initget,inters,itoa,lamb' +
            'da,last,length,list,listp,load,log,logand,logior,lsh,mapcar,max,' +
            'mem,member,menucmd,min,minusp,nentsel,nentselp,not,nth,null,numb' +
            'erp,open,or,osnap,polar,prin1,princ,print,progn,prompt,quit,quot' +
            'e,read,read-char,read-line,redraw,rem,repeat,reverse,rtos,set,se' +
            'tfunhelp,setq,setvar,setview,sin,snvalid,sqrt,ssadd,ssdel,ssget,' +
            'ssgetfirst,sslength,ssmemb,ssname,ssnamex,sssetfirst,startapp,st' +
            'rcase,strcat,strlen,subst,substr,tblnext,tblobjname,tblsearch,te' +
            'rpri,textbox,textpage,textscr,trace,trans,type,untrace,ver,vport' +
            's,wcmatch,while,write-char,write-line,zerop'
        end
        item
          FontID = 8
          Name = 'Constants'
          Keywords = 
            '$data,$key,$reason,$value,action_tile,ADD_LIST,CLIENT_DATA_TILE,' +
            'dimx_tile,dimy_tile,DONE_DIALOG,DONE_POSITIONED_DIALOG,end_image' +
            ',end_list,fill_image,GET_ATTR,GET_ATTR_STRING,GET_TILE,mode_tile' +
            ',new_dialog,NEW_POSITIONED_DIALOG,set_tile,slide_image,start_dia' +
            'log,start_image,start_list,unload_dialog,vector_image'
        end>
      FirstIdentChars = '#-&?-Z_a-z'
      OtherIdentChars = '#-&\-0-:?-Z_a-z'
    end>
  P.FontTable = <
    item
      FontID = 2
      GlobalAttrID = 'String'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 3
      GlobalAttrID = 'Integer'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 4
      GlobalAttrID = 'Float'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 5
      GlobalAttrID = 'Identifier'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 6
      GlobalAttrID = 'Reserved words'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 8
      GlobalAttrID = 'Defines'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 9
      GlobalAttrID = 'Plain Text'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 10
      GlobalAttrID = 'Comment'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      FontID = 1
      GlobalAttrID = 'Comment'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end>
  P.SyntaxVersion = 3
end
